home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / editor / blksedtr.lha / BED / Install / Install.script < prev    next >
Text File  |  1996-05-06  |  21KB  |  554 lines
  1. ; $VER: Blacks Editor Installer 1.0 (03.03.96)
  2. ; Blacks Editor Install Script
  3. ; By Marco Negri
  4. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5.  
  6. (set sourcedir "/")
  7.  
  8. (set dirname "BED")
  9. (set execname "BED")
  10. (set reqtoolsdir "ReqTools")
  11. (set supportdir "Support")
  12. (set rexxdir "Rexx")
  13. (set icondir "Icons")
  14. (set catalogdir "Catalogs")
  15. (set localkitdir "LocalizationKit")
  16.  
  17. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  18.  
  19. (if (= @language "english")
  20.     (
  21.         (set old_os_exit "BED required minimum OS version: 37\nYour current version: %ld.%ld\n\nBlacks Editor cannot be installed")
  22.         (set target_prompt "Select location to put Blacks Editor %ld.%ld:\nA directory named %s will be created")
  23.         (set exist_dir_prompt "The directory selected is\n%s\nDo you wish to install Blacks Editor there ?")
  24.         (set same_version_prompt "The same version of Blacks Editor is present\nVersion: %ld.%ld\nDo you want to re-install it ?")
  25.         (set same_version_exit "Same version already present !")
  26.         (set new_version_prompt "A newer version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nInstallation aborted !")
  27.         (set new_version_exit "Newer version already present !")
  28.         (set old_version_prompt "An older version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nDo you want to replace it ?")
  29.         (set old_version_exit "Older version not replaced !")
  30.         (set os37_reqtools_msg "Blacks Editor requires \"reqtools.library\" v38+ to run on your system\n\n(ReqTools is Copyright (c) Nico François and Magnus Holmgren)")
  31.         (set os38_reqtools_msg "Blacks Editor can use ReqTools requesters if \"reqtools.library\" is installed\n\n(ReqTools is Copyright (c) Nico François and Magnus Holmgren)")
  32.         (set defs_prompt "Select the definitions files to install:\n(Really important: Startup.dfn and Standard.dfn)")
  33.         (set prefs_prompt "Select the preferences files to install:")
  34.         (set rexx_msg "Some useful ARexx macros will be copied in\n%s")
  35.         (set icon_msg "Some Icon templates will be copied in\n%s")
  36.         (set catalogs_prompt "Select the catalogs you want to install:\n(English: built-in)")
  37.         (set localkit_prompt "Do you want  to install the Localization Kit ?\n(Used to create your own localization catalogs)")
  38.         (set startup_msg "The following lines will be added to your S:User-Startup\n")
  39.         (set replace_button "Replace")
  40.         (set abort_button "Abort")
  41.         (set install_there_button "Install BED there")
  42.         (set new_dir_button "Create a directory named %s")
  43.     )
  44. )
  45.  
  46. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  47. ; Français translation by David Le Corfec & Claude Abraham
  48. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  49.  
  50. (if (= @language "français")
  51.     (
  52.         (set old_os_exit "Blacks Editor requiert l'OS version minimum : 37\nVotre version actuelle: %ld.%ld\n\nBlacks Editor ne peut pas être installé")
  53.         (set target_prompt "Sélectionnez l'endroit où mettre Blacks Editor %ld.%ld:\nUn tiroir nommé %s sera créé")
  54.         (set exist_dir_prompt "Le tiroir sélectionné est\n%s\nSouhaitez-vous installer Blacks Editor là ?")
  55.         (set same_version_prompt "La même version de Blacks Editor est présente\nVersion: %ld.%ld\nVoulez-vous le réinstaller ?")
  56.         (set same_version_exit "Même version déjà présente !")
  57.         (set new_version_prompt "Une version plus récente de Blacks Editor est présente\nAncienne version: %ld.%ld\nNouvelle version: %ld.%ld\nInstallation arrêtée !")
  58.         (set new_version_exit "Version plus récente déjà présente !")
  59.         (set old_version_prompt "Une ancienne version de Blacks Editor est présente\nAncienne version: %ld.%ld\nNouvelle version: %ld.%ld\nVoulez-vous la remplacer ?")
  60.         (set old_version_exit "Version plus ancienne non remplacée !")
  61.         (set os37_reqtool_msg "Blacks Editor requiert la \"reqtools.library\" v38+ pour tourner sur votre sytème\n\n(ReqTools est Copyright © by Nico François et Magnus Holmgren)")
  62.         (set os38_reqtools_msg "Blacks Editor peut utiliser les boîtes de dialogue de ReqTools si la \"reqtools.library\" est installée\n\n(ReqTools est Copyright © by Nico François et Magnus Holmgren)")
  63.         (set defs_prompt "Sélectionner les fichiers de définitions à installer:\n(Réellement important: Startup.dfn et Standard.dfn)")
  64.         (set prefs_prompt "Sélectionner les fichiers de préférences à installer:")
  65.         (set rexx_msg "Quelques macros ARexx utiles seront copiées dans\n%s")
  66.         (set icon_msg "Quelques modèles d'icônes seront copiés dans\n%s")
  67.         (set catalogs_prompt "Sélectionner les catalogues que vous voulez installer:\n(Anglais: déjà inclus)")
  68.         (set localkit_prompt "Voulez-vous installer le Kit de localisation ?\n(Utilisé pour créer vos propres catalogues de localisation")
  69.         (set startup_msg "Les lignes suivantes seront ajoutées à votre S:User-Startup\n")
  70.         (set replace_button "Remplacer")
  71.         (set abort_button "Arrêter")
  72.         (set install_there_button "Installer BED ici")
  73.         (set new_dir_button "Créer un tiroir nommé %s")
  74.     )
  75. )
  76.  
  77. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  78. ; Spanish translation by Jorge Acereda Macia
  79. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  80.  
  81. (if (= @language "español")
  82.     (
  83.         (set old_os_exit "Versión mínima necesaria para BED: 37\nSu versión es: %ld.%ld\n\nNo se puede instalar Blacks Editor")
  84.         (set target_prompt "Seleccione dónde se debe instalar el Blacks Editor %ld.%ld:\nSe creará un directorio llamado %s")
  85.         (set exist_dir_prompt "El directorio seleccionado es\n%s\n¿Desea instalar Blacks Editor ahí?")
  86.         (set same_version_prompt "Ya existe una instalación de la misma versión de Blacks Editor\nVersión: %ld.%ld\n¿Desea reinstalarlo?")
  87.         (set same_version_exit "¡Ya existe una versión idéntica!")
  88.         (set new_version_prompt "Ya existe una versión más nueva de Blacks Editor\nVieja versión: %ld.%ld\nNueva versión: %ld.%ld\n¡Instalación interrumpida!")
  89.         (set new_version_exit "¡Ya existe una versión más nueva!")
  90.         (set old_version_prompt "Ya existe una versión anterior\nVieja versión: %ld.%ld\nNueva versión: %ld.%ld\n¿Desea reemplazarla?")
  91.         (set old_version_exit "¡No se ha reemplazado la vieja versión!")
  92.         (set os37_reqtools_msg "Blacks Editor necesita \"reqtools.library\" v38+ para ejecutarse en su sistema\n\n(ReqTools es Copyright (c) de Nico François y Magnus Holmgren)")
  93.         (set os38_reqtools_msg "Blacks Editor puede usar requesters ReqTools si esta instalada la \"reqtools.library\"\n\n(ReqTools es Copyright (c) de Nico François y Magnus Holmgren)")
  94.         (set defs_prompt "Seleccione los ficheros de definición a instalar:\n(Muy importantes: Startup.dfn y Standard.dfn)")
  95.         (set prefs_prompt "Seleccione los ficheros de preferencias a instalar:")
  96.         (set rexx_msg "Se copiarán algunas macros ARexx útiles en\n%s")
  97.         (set icon_msg "Se copiarán algunas plantillas de iconos en\n%s")
  98.         (set catalogs_prompt "Seleccione los catálogos a instalar:\n(Ingles: ya incluido)")
  99.         (set localkit_prompt "¿Desea instalar el kit de localización?\n(Usado para crear sus propios catálogos de localización)")
  100.         (set startup_msg "Se añadirán las siguientes lineas a su S:User-Startup\n")
  101.         (set replace_button "Reemplazar")
  102.         (set abort_button "Abortar")
  103.         (set install_there_button "Instalar BED ahí")
  104.         (set new_dir_button "Crear un directorio llamado %s")
  105.     )
  106. )
  107.  
  108. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  109. ; Italian translation by Marco Negri
  110. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  111.  
  112. (if (= @language "italiano")
  113.     (
  114.         (set old_os_exit "Versione OS minima richiesta da BED: 37\nVersione corrente: %ld.%ld\n\nBlacks Editor non può essere installato")
  115.         (set target_prompt "Scegli il posto dove installare Blacks Editor %ld.%ld:\nSarà creata una directory chiamata %s")
  116.         (set exist_dir_prompt "La directory selezionata è\n%s\nVuoi installare Blacks Editor quì ?")
  117.         (set same_version_prompt "E' presente la stessa versione di Blacks Editor\nVersione: %ld.%ld\nVuoi re-installare tutto ?")
  118.         (set same_version_exit "E' già presente la stessa versione di Blacks Editor!")
  119.         (set new_version_prompt "E' presente una versione più aggiornata di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione: %ld.%ld\nInstallazione cancellata !")
  120.         (set new_version_exit "E' già presente una versione più aggiornata di Blacks Editor!")
  121.         (set old_version_prompt "E' presente una vecchia versione di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione %ld.%ld\nVuoi sostituirla ?")
  122.         (set old_version_exit "La vecchia versione di Blacks Editor non è stata sostituita")
  123.         (set os37_reqtools_msg "Blacks Editor richiede la \"reqtools.library\" v38+ per funzionare su questo sistema\n\n(ReqTools è Copyright (c) Nico François e Magnus Holmgren)")
  124.         (set os38_reqtools_msg "Blacks Editor può usare i requesters ReqTools se la \"reqtools.library\" è installata\n\n(ReqTools è Copyright (c) Nico François e Magnus Holmgren)")
  125.         (set defs_prompt "Seleziona i files di definizione da installare:\n(Importanti: Startup.dfn e Standard.dfn)")
  126.         (set prefs_prompt "Seleziona i files di preferenze da installare:")
  127.         (set rexx_msg "Verranno copiate alcune utili macro ARexx in\n%s")
  128.         (set icon_msg "Verranno copiati alcuni templates di icone in\n%s")
  129.         (set catalogs_prompt "Seleziona i cataloghi da installare:\n(English: incorporato)")
  130.         (set localkit_prompt "Vuoi installare il Localization Kit ?\n(Utile per creare i tuoi cataloghi)")
  131.         (set startup_msg "Le seguenti linee verranno aggiunte alla tua S:User-Startup\n")
  132.         (set replace_button "Sostituisci")
  133.         (set abort_button "Abbandona")
  134.         (set install_there_button "Installa BED quì")
  135.         (set new_dir_button "Crea una directory chiamata %s")
  136.     )
  137. )
  138.  
  139. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  140. ; Swedish translation by Mathias Karlsson
  141. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  142.  
  143. (if (= @language "svenska")
  144.     (
  145.         (set old_os_exit "BED kräver minst OS version: 37\nDin nuvarande version: %ld.%ld\n\nBlacks Editor kan inte installeras")
  146.         (set target_prompt "Välj plats att installera Blacks Editor %ld.%ld:\nEn låda kallad %s kommer att skapas")
  147.         (set exist_dir_prompt "Den valda lådan är\n%s\nVill du installera Blacks Editor där?")
  148.         (set same_version_prompt "Samma version av Blacks Editor är redan installerad\nVersion: %ld.%ld\nVill du om-installera den?")
  149.         (set same_version_exit "Samma version redan installerad!")
  150.         (set new_version_prompt "En nyare version av Blacks Editor är redan installerad\nGammal version: %ld.%ld\nNy Version: %ld.%ld\nInstallation avbruten!")
  151.         (set new_version_exit "Nyare version redan installerad!")
  152.         (set old_version_prompt "En äldre version av Blacks Editor är redan installerad\nGammal version: %ld.%ld\nNy Version: %ld.%ld\nVill du ersätta den?")
  153.         (set old_version_exit "Äldre version ej ersatt!")
  154.         (set os37_reqtools_msg "Blacks Editor kräver \"reqtools.library\" v38+ för att kunna användas på ditt system")
  155.         (set os38_reqtools_msg "Blacks Editor kan använda ReqTools requesters \"reqtools.library\" är installerat")
  156.         (set defs_prompt "Välj definitionsfiler att installera:\n(Mycket viktiga: Startup.dfn och Standard.dfn)")
  157.         (set prefs_prompt "Välj inställningsfiler (preferences) att installera:")
  158.         (set rexx_msg "Några användbara ARexx-makron kopieras\n%s")
  159.         (set icon_msg "Några Ikon-mallar kopieras\n%s")
  160.         (set catalogs_prompt "Välj katalogerna du vill installera:\n(Engelska: inbyggt)")
  161.         (set localkit_prompt "Vill du installera lokaliseringspaketet?\n(Används för att skapa egna lokaliserade kataloger)")
  162.         (set startup_msg "Följande rader kommer att adderas till din S:User-Startup\n")
  163.         (set replace_button "Ersätt")
  164.         (set abort_button "Avbryt")
  165.         (set install_there_button "Installera BED här")
  166.         (set new_dir_button "Skapa låda kallad %s")
  167.     )
  168. )
  169.  
  170. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  171. ; Polish translation by Radoslaw Chyra
  172. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  173.  
  174. (if (= @language "polski")
  175.     (
  176.         (set old_os_exit "BED wymaga minimum 37 wersji OS\nTwoja wersja OS: %ld.%ld\n\nBlacks Editor nie moûe byê zainstalowany")
  177.         (set target_prompt "Wybierz gdzie mam ulokowaê Blacks Editor %ld.%ld:\nZostanie tam utworzony katalog o nazwie %s")
  178.         (set exist_dir_prompt "Wybraîeô katalog\n%s\nCzy chcesz tam zainstalowaê Blacks Editor ?")
  179.         (set same_version_prompt "Znalazîem të samâ wersjë Blacks Editor'a\nWersja: %ld.%ld\nCzy chcesz jâ ponownie zainstalowaê ?")
  180.         (set same_version_exit "Ta sama wersja jest juû zainstalowana !")
  181.         (set new_version_prompt "Znalazîem starâ wersjë Blacks Editor'a\nStara wersja: %ld.%ld\nNowa wersja: %ld.%ld\nInstalacja przerwana !")
  182.         (set new_version_exit "Nowsza wersja jest juû zainstalowana !")
  183.         (set old_version_prompt "Znalazîem starâ wersjë Blacks Editor'a\nStara wersja: %ld.%ld\nNowa wersja: %ld.%ld\nChcesz jâ wymieniê ?")
  184.         (set old_version_exit "Starsza wersja nie zostaîa wymieniona!")
  185.         (set os37_reqtools_msg "Blacks Editor do pracy potrzebuje \"reqtools.library\" v38+\n\n(ReqTools is Copyright (c) by Nico François and Magnus Holmgren)")
  186.         (set os38_reqtools_msg "Blacks Editor moûe korzystaê z biblioteki ReqTools jeôli jest zainstalowana\n\n(ReqTools is Copyright (c) by Nico François and Magnus Holmgren)")
  187.         (set defs_prompt "Które pliki z definicjami zainstalowaê:\n(Niezbëdne sâ Startup.dfn i Standard.dfn)")
  188.         (set prefs_prompt "Które pliki z ustawieniami zainstalowaê:")
  189.         (set rexx_msg "Skopiujë kilka przydatnych makrodefinicji ARexx'a do\n%s")
  190.         (set icon_msg "Skopiujë kilka szablonów ikonek do\n%s")
  191.         (set catalogs_prompt "Które katalogi jëzykowe zainstalowaê:\n(Angielski: wbudowany)")
  192.         (set localkit_prompt "Zainstalowaê Localization Kit ?\n(Przydatny przy tworzeniu wîasnego tîumaczenia)")
  193.         (set startup_msg "Do S:User-Startup zostanâ dodane nastëpujâce linie\n")
  194.         (set replace_button "Wymieï")
  195.         (set abort_button "Przerwij")
  196.         (set install_there_button "Zainstaluj BED'a tutaj")
  197.         (set new_dir_button "Utwórz katalog o nazwie %s")
  198.     )
  199. )
  200.  
  201. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  202.  
  203. (complete 0)
  204.  
  205. (set new_vernum (getversion (tackon sourcedir "BED")))
  206. (set new_ver (shiftright new_vernum 16))
  207. (set new_rev (BITAND new_vernum 65535))
  208.  
  209. (set sys_vernum (getversion))
  210. (set sys_ver (shiftright sys_vernum 16))
  211. (set sys_rev (BITAND sys_vernum 65535))
  212.  
  213.  
  214. ; - - - - Check system version and revision - - - -
  215.  
  216.  
  217. (set @default-dest "")
  218.  
  219. (if (< sys_ver 37)
  220.     (exit (old_os_exit sys_ver sys_rev))
  221. )
  222.  
  223.  
  224. ; - - - - Ask for the target directory  - - - -
  225.  
  226.  
  227. (set target
  228.     (askdir
  229.         (prompt (target_prompt new_ver new_rev dirname))
  230.         (default @default-dest)
  231.         (disk)
  232.         (help @askdir-help)
  233.     )
  234. )
  235.  
  236.  
  237. ; - - - - Check if the directory is already called BED - - - -
  238.  
  239.  
  240. (if (= dirname (fileonly target))
  241.     (if (= 1    (askchoice
  242.                     (prompt (exist_dir_prompt target))
  243.                     (choices install_there_button (new_dir_button dirname))
  244.                     (default 0)
  245.                     (help @askchoice-help)
  246.                     )
  247.             )
  248.  
  249.             (set target (tackon target dirname))
  250.     )
  251.  
  252.     (set target (tackon target dirname))
  253. )
  254.  
  255. (set @default-dest target)
  256.  
  257.  
  258. ; - - - - Check if there is another version present - - - -
  259.  
  260.  
  261. (set exec (tackon target execname))
  262.  
  263. (if (exists exec)
  264.     (
  265.         (set old_vernum (getversion exec))
  266.         (set old_ver (/ old_vernum 65536))
  267.         (set old_rev (- old_vernum (* old_ver 65536)))
  268.  
  269.         (if (= old_vernum new_vernum)
  270.             (
  271.                 (if (= 0 (askbool
  272.                                     (prompt (same_version_prompt old_ver old_rev))
  273.                                     (choices replace_button abort_button)
  274.                                     (default 0)
  275.                                     (help @askbool-help)
  276.                                     )
  277.                                 )
  278.                         (exit same_version_exit)
  279.                 )
  280.             )
  281.             (if (< old_vernum new_vernum)
  282.                 (if (= 0 (askbool
  283.                                     (prompt (old_version_prompt old_ver old_rev new_ver new_rev))
  284.                                     (choices replace_button abort_button)
  285.                                     (default 1)
  286.                                     (help @askbool-help)
  287.                             )
  288.                     )
  289.                     (exit old_version_exit)
  290.                 )
  291.                 (
  292.                     (message (new_version_prompt old_ver old_rev new_ver new_rev))
  293.                     (exit new_version_exit)
  294.                 )
  295.             )
  296.         )
  297.     )
  298. )
  299.  
  300.  
  301. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  302. ; *** BED and BED.guide ***
  303. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  304.  
  305. (copyfiles
  306.     (prompt "")
  307.     (source (tackon sourcedir ("/%s.info" dirname)))
  308.     (dest (pathonly target))
  309.     (help @copyfiles-help)
  310. )
  311.  
  312. (copyfiles
  313.     (prompt "")
  314.     (source sourcedir)
  315.     (choices execname ("%s.guide" execname) "Author.iff")
  316.     (dest target)
  317.     (infos)
  318.     (help @copyfiles-help)
  319. )
  320.  
  321. (complete 20)
  322.  
  323.  
  324. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  325. ; *** ReqTools.library ***
  326. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  327.  
  328. (if (> sys_ver 38)
  329.     (set reqtools_msg os37_reqtools_msg)
  330.     (set reqtools_msg os38_reqtools_msg)
  331. )
  332.  
  333. (copylib
  334.     (prompt reqtools_msg)
  335.     (help @copylib-help)
  336.     (source (tackon (tackon sourcedir reqtoolsdir) "reqtools.library"))
  337.     (dest "LIBS:")
  338.     (confirm)
  339. )
  340.  
  341. (complete 30)
  342.  
  343.  
  344. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  345. ; *** Support ***
  346. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  347.  
  348. (copyfiles
  349.     (prompt "")
  350.     (source (tackon sourcedir ("%s.info" supportdir)))
  351.     (dest target)
  352.     (help @copyfiles-help)
  353. )
  354.  
  355. (copyfiles
  356.     (prompt defs_prompt)
  357.     (source (tackon sourcedir supportdir))
  358.     (pattern "#?.dfn")
  359.     (dest (tackon target supportdir))
  360.     (infos)
  361.     (confirm)
  362.     (help @copyfiles-help)
  363. )
  364.  
  365. (complete 40)
  366.  
  367. (copyfiles
  368.     (prompt prefs_prompt)
  369.     (source (tackon sourcedir supportdir))
  370.     (pattern "#?.prf")
  371.     (dest (tackon target supportdir))
  372.     (infos)
  373.     (confirm)
  374.     (help @copyfiles-help)
  375. )
  376.  
  377. (complete 50)
  378.  
  379.  
  380. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  381. ; *** Rexx ***
  382. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  383.  
  384. (message (rexx_msg (tackon target rexxdir)))
  385.  
  386. (copyfiles
  387.     (prompt "")
  388.     (source (tackon sourcedir ("%s.info" rexxdir)))
  389.     (dest target)
  390.     (help @copyfiles-help)
  391. )
  392.  
  393. (copyfiles
  394.     (prompt "")
  395.     (source (tackon sourcedir rexxdir))
  396.     (all)
  397.     (dest (tackon target rexxdir))
  398.     (infos)
  399.     (help @copyfiles-help)
  400. )
  401.  
  402. (complete 60)
  403.  
  404.  
  405. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  406. ; *** Icons ***
  407. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  408.  
  409. (message (icon_msg (tackon target "Icons")))
  410.  
  411. (copyfiles
  412.     (prompt "")
  413.     (source (tackon sourcedir ("%s.info" icondir)))
  414.     (dest target)
  415.     (help @copyfiles-help)
  416. )
  417.  
  418. (copyfiles
  419.     (prompt "")
  420.     (source (tackon sourcedir icondir))
  421.     (all)
  422.     (dest (tackon target icondir))
  423.     (infos)
  424.     (help @copyfiles-help)
  425. )
  426.  
  427. (complete 70)
  428.  
  429.  
  430. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  431. ; *** Catalogs ***
  432. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  433.  
  434. (set catalogs
  435.     (askoptions
  436.         (prompt catalogs_prompt)
  437.         (choices "Français" "Español" "Italiano" "Svenska" "Polski")
  438.         (help @askoptions-help)
  439.     )
  440. )
  441.  
  442. (set catdir (tackon target catalogdir))
  443.  
  444. (if (NOT (= 0 catalogs))
  445. (
  446.     (copyfiles
  447.         (prompt "")
  448.         (source (tackon sourcedir ("%s.info" catalogdir)))
  449.         (dest target)
  450.         (help @copyfiles-help)
  451.     )
  452.  
  453.     (makedir catdir)
  454.  
  455.     (if (IN catalogs 0)
  456.         (copyfiles
  457.             (prompt "")
  458.             (source (tackon sourcedir ("%s/Français" catalogdir)))
  459.             (all)
  460.             (dest (tackon catdir "Français"))
  461.             (help @help-copyfiles)
  462.         )
  463.     )
  464.  
  465.     (if (IN catalogs 1)
  466.         (copyfiles
  467.             (prompt "")
  468.             (source (tackon sourcedir ("%s/Español" catalogdir)))
  469.             (all)
  470.             (dest (tackon catdir "Español"))
  471.             (help @help-copyfiles)
  472.         )
  473.     )
  474.  
  475.     (if (IN catalogs 2)
  476.         (copyfiles
  477.             (prompt "")
  478.             (source (tackon sourcedir ("%s/Italiano" catalogdir)))
  479.             (all)
  480.             (dest (tackon catdir "Italiano"))
  481.             (help @help-copyfiles)
  482.         )
  483.     )
  484.  
  485.     (if (IN catalogs 3)
  486.         (copyfiles
  487.             (prompt "")
  488.             (source (tackon sourcedir ("%s/Svenska" catalogdir)))
  489.             (all)
  490.             (dest (tackon catdir "Svenska"))
  491.             (help @help-copyfiles)
  492.         )
  493.     )
  494.  
  495.     (if (IN catalogs 4)
  496.         (copyfiles
  497.             (prompt "")
  498.             (source (tackon sourcedir ("%s/Polski" catalogdir)))
  499.             (all)
  500.             (dest (tackon catdir "Polski"))
  501.             (help @help-copyfiles)
  502.         )
  503.     )
  504. )
  505. )
  506.  
  507. (complete 80)
  508.  
  509.  
  510. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  511. ; *** Localization Kit ***
  512. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  513.  
  514. (if (= 1 (askbool
  515.     (prompt localkit_prompt)
  516.     (default 1)
  517.     (help "")))
  518.  
  519.     (
  520.         (copyfiles
  521.             (prompt "")
  522.             (source (tackon sourcedir ("%s.info" localkitdir)))
  523.             (dest target)
  524.             (help @copyfiles-help)
  525.         )
  526.  
  527.         (copyfiles
  528.             (prompt "")
  529.             (source (tackon sourcedir localkitdir))
  530.             (all)
  531.             (dest (tackon target localkitdir))
  532.             (infos)
  533.             (help @copyfiles-help)
  534.         )
  535.     )
  536. )
  537.  
  538. (complete 90)
  539.  
  540.  
  541. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  542. ; *** User-Startup ***
  543. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  544.  
  545. (set assign_lines ("Assign BED: \"%s\"\nAssign REXX: \"%s\" ADD\nPath BED: ADD\n" target (tackon target rexxdir)))
  546.  
  547. (startup "Blacks Editor"
  548.     (prompt (cat startup_msg assign_lines))
  549.     (command assign_lines)
  550.     (help @startup-help)
  551. )
  552.  
  553. (complete 100)
  554.